home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 1995 #5 & #6
/
Amiga Plus CD - 1995 - No. 5 and 6.iso
/
pd
/
serien
/
purity
/
nr.51
/
wbswatsch
/
sw.p
< prev
next >
Wrap
Text File
|
1995-08-27
|
3KB
|
99 lines
PROGRAM datetime;
{ Done on 20.02.1995 by Røgersøft for Purity the Pascal FD-Serie
on the C= Amiga. Thanks To Björn ! }
USES intuition,exec;
{$incl 'exec/memory.h','exec/execbase.h','dos.lib',
'dos/datetime.h','intuition/intuitionbase.h'}
CONST taskname='D-T.0001';
VAR
scr,scr1:p_screen;
win:p_window;
task:p_task;
dt:DateTime;
ds:Datestamp;
x:p_DateStamp;
s1,s2,s3: STRING[Len_DatString];
dummy:LONG;
buffer:STRING[180];
buff1:STRING[80];
ib:^_intuitionbase;
hilf1,hilf2:STRING;
meg,speicher1,speicher2:LONGINT;
kilo,byt:INTEGER;
BEGIN
dosbase:=OpenLibrary('dos.library',37);
IF (findtask(taskname)=NIL) THEN
BEGIN
ib:=intuitionbase;
win:=open_window(100,60,240,40,1,0,activate,'WBSwatsch by Røgersøft',NIL,20,10,300,80);
scr:=win^.wscreen;
task:=findtask(NIL); { eigenen Task suchen }
task^.tc_node.ln_name:=taskname; { task umbenennen }
delay(20);
Close_Window(win);
REPEAT
x:=DOSDateStamp(^ds);
dt:=DateTime(ds,FORMAT_CDN,0,^s1,^s2,^s3);
dummy:=datetostr(^dt);
IF dummy=1 THEN
BEGIN
buff1:=s1+' '+s2+' '+s3;
IF pos('Workbench Screen',scr^.title)=1 THEN
buffer:='Workbench Screen '+buff1;
speicher1:=availmem($2);
speicher2:=availmem($4);
meg:=(speicher1 DIV 1000000); IF meg>0 THEN hilf1:=intstr(meg)+'.';
meg:=(speicher1 MOD 1000000);
kilo:=meg DIV 1000;
IF kilo<100 THEN hilf1:=hilf1+'0';
IF kilo<10 THEN hilf1:=hilf1+'0';
hilf1:=hilf1+intstr(kilo)+'.';
kilo:=meg MOD 1000;
IF kilo<100 THEN hilf1:=hilf1+'0';
IF kilo<10 THEN hilf1:=hilf1+'0';
hilf1:=hilf1+intstr(kilo);
meg:=(speicher2 DIV 1000000); IF meg>0 THEN hilf2:=intstr(meg)+'.';
meg:=(speicher2 MOD 1000000);
kilo:=meg DIV 1000;
IF kilo<100 THEN hilf2:=hilf2+'0';
IF kilo<10 THEN hilf2:=hilf2+'0';
hilf2:=hilf2+intstr(kilo)+'.';
kilo:=meg MOD 1000;
IF kilo<100 THEN hilf2:=hilf2+'0';
IF kilo<10 THEN hilf2:=hilf2+'0';
hilf2:=hilf2+intstr(kilo);
IF pos('Amiga Workbench',scr^.title)=1 THEN
buffer:='Amiga Workbench '+hilf1+' Chip-RAM '+
hilf2+' sonstiges RAM '+buff1;
{ scr^.title:=buffer
showtitle(scr,ORD(true));}{die beiden Zeilen waren tödlich !}
setwindowtitles(ib^.activewindow,str(-1),buffer);
{ scr1:=Ib^.activescreen;
IF (scr1<>scr) THEN scr:=scr1}
delay(50);
END;
UNTIL FALSE;
END
ELSE
BEGIN
forbid;
Remtask(findtask(taskname));
permit;
win:=open_window(100,60,240,40,1,0,activate,'WBSwatsch removed',NIL,20,10,300,80);
delay(50);
Close_Window(win);
END;
END.